home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / HOME / APRS60.ZIP / FIXHST.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-09-28  |  655 b   |  27 lines
  1. REM this program reads a .HST file and alows you to do things with it..
  2. REM But you gotta program it yourself...
  3. REM Presently I used it to go back and change the symbol character on all the
  4. REM vehicles in a .HST file
  5.  
  6. F$ = "MSBIKE.hst"
  7.  
  8.  
  9. OPEN F$ FOR INPUT AS #1
  10. OPEN "TEMP.out" FOR OUTPUT AS #2
  11.  
  12. DO UNTIL EOF(1)
  13.   
  14.    LINE INPUT #1, a$: PRINT a$
  15.    IF LEFT$(a$, 9) = "KC4YMP-9 " THEN MID$(a$, 44, 1) = ">"
  16.    IF LEFT$(a$, 9) = "GPSB     " THEN MID$(a$, 44, 1) = "B"
  17.    IF LEFT$(a$, 9) = "W3ADO-9  " THEN MID$(a$, 44, 1) = "A"
  18.    IF LEFT$(a$, 9) = "MOBILE-9 " THEN MID$(a$, 44, 1) = "o"
  19.  
  20.    PRINT #2, a$
  21.  
  22. LOOP
  23. CLOSE 1
  24. CLOSE 2
  25.  
  26.  
  27.